﻿Imports CrystalDecisions.CrystalReports.Engine
Public Class frmInHoaDon

    Private Sub frmInHoaDon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baocao As New ReportDocument
        baocao.Load("C:\Users\Huy\Desktop\Project\Source\1065059_1065146\Project\Project\BaoCaoHoaDon.rpt")
        CrystalReportViewer1.ReportSource = baocao
        CrystalReportViewer1.Refresh()
    End Sub

 

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Me.Close()
    End Sub
End Class